home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
EGAVGA.SWG
/
0011_FASTRGB.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
629b
|
24 lines
{
GRADY WERNER
Put these in your code For GREAT, FAST RGB Palette Changing...
}
Procedure ASetRGBPalette(Color, Red, Green, Blue : Byte);
begin
Port[$3C8]:=Color;
Port[$3C9]:=Red;
Port[$3C9]:=Green;
Port[$3C9]:=Blue;
end;
{
This Procedure Changes palette colors about 400% faster than the
built-in routines. Also, a problem With flicker may have been encountered
with Turbo's Putimage Functions. Call this Procedure RIGHT BEFORE the
putimage is called... Viola... NO Flicker!
}
Procedure WaitScreen;
begin
Repeat Until (Port[$3DA] and $08) = 0;
Repeat Until (Port[$3DA] and $08) <> 0;
end;